home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 120 / 120.d81 / sfx demo (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  672b  |  21 lines
  1. 10 c=64:ifpeek(789)<>234thenc=128
  2. 12 poke53280,0:poke53281,0
  3. 20 print"[147][159][209] & [196] [211][198][216] [199]enerator v1.0"
  4. 30 s=2816:sp=s+6
  5. 40 dv=peek(186):ifdv<8thendv=8
  6. 50 ifl=0thenl=1:load"sfx player 0b00",dv,1
  7. 60 ifc=64thenpoke56,11:clr:c=64:s=2816:sp=s+9
  8. 80 print"[211]ystem: [195]ommodore"c
  9. 90 print"[208]ress keys a - z to hear sound effects."
  10. 100 print"[208]ress [211][208][193][195][197] to exit."
  11. 110 syss:syss+12
  12. 120 geta$:ifa$>"@"anda$=<"z"thensyssp,asc(a$)-65:goto120
  13. 130 ifa$<>" "then120
  14. 140 syss+15
  15. 160 a$="hello connect":fori=8to9:close2:open2,i,2:close2:ifstthen190
  16. 170 close15:open15,i,15,"r0:hello connect=hello connect"
  17. 180 input#15,er:close15:ifer=63then200
  18. 190 next:print"[147]":poke2048,0:poke44,8:poke53272,23:poke186,8:end
  19. 200 poke646,peek(53281):print"[147]load"chr$(34)a$chr$(34)","i
  20. 210 print"run":poke44,8:poke2048,0:poke631,13:poke632,13:poke198,2:end
  21.